Movie Dataset GGPlot Notebook

Different plots using different functions in ggplot2 library in R. Using the movies dataset for this visualization.

Dataset Reference: https://sds-platform-private.s3-us-east-2.amazonaws.com/uploads/P2-Movie-Ratings.csv

movies<-read.csv("P2-Movie-Ratings.csv")

colnames(movies)<-c("Film","Genre","CriticRating","AudienceRating","BudgetMillion","Year")

library("ggplot2")
q<-ggplot(data=movies,aes(x=CriticRating,y=AudienceRating,color=Genre,size=BudgetMillion))
q+geom_point()

q+geom_jitter()

q+geom_rug(sides="bl")

q+geom_smooth()

q+geom_text(aes(label=CriticRating))

q+geom_hex()

q+geom_density2d()

q+geom_bin2d(binwidth = c(5, 0.5))

s<-ggplot(data = movies,aes(x=BudgetMillion))
s+geom_histogram(binwidth = 10,aes(fill=Genre),color="black")

#two variable trend curve
t<-ggplot(data=movies,aes(y=AudienceRating,x=CriticRating,color=Genre))
t+geom_point()+geom_smooth(fill=NA)

u<-ggplot(data=movies,aes(x=Genre,y=AudienceRating,color=Genre))
u+geom_boxplot()

v<-ggplot(data=movies,aes(x=BudgetMillion))
v+geom_histogram(binwidth = 10,aes(fill=Genre),color="Black") + facet_grid(Genre~.,scales = "free")

o<-ggplot(data=movies,aes(x=BudgetMillion))
o+geom_area(stat="bin")

o+geom_density(kernel="gaussian")

o+geom_freqpoly()

o+geom_bar()

o+geom_histogram(binwidth = 5)

o+geom_dotplot()

#single variable histogram
t<-ggplot(data=movies,aes(x=AudienceRating))
t+geom_histogram(binwidth = 10,fill="White",color="Black")

#single variable density plot
s+geom_density(aes(fill=Genre),position="Stack")

d<-ggplot(data=movies,aes(x=CriticRating,y=AudienceRating,z=Genre))
d + geom_tile(aes(fill = Genre), hjust=0.5, vjust=0.5, interpolate=FALSE)

Ignoring unknown parameters: hjust, vjust, interpolate

g<-ggplot(data=movies,aes(x=CriticRating))
r<-g+geom_bar()
r+coord_cartesian(xlim = c(0,5))

r+coord_flip()

r + coord_fixed(ratio = 1/2)

r + coord_polar(theta = "x", direction=1 )

r + coord_trans(y = "sqrt")

r + coord_map(projection = "ortho",orientation=c(40, 40, 0))

g+geom_bar(position = "dodge")

f<- ggplot(data=movies, aes(x=CriticRating,y=AudienceRating))
f+geom_point(position = "jitter")

f+geom_ribbon(aes(ymin=AudienceRating-20,ymax=AudienceRating+20))